home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ SFP Options 1.xpl < prev    next >
Text File  |  2001-04-12  |  2KB  |  67 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="System\Software Installation\Windows File Protection"
  5. "NAME"="WFP Display Options"
  6. "VERSION"="1.12"
  7. "OSVERSION"="000111"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Display detailed popups about activity"
  10. "TEXT 2"="Display information-popups before altering files"
  11. "TEXT 3"="Display progress bar when altering files"
  12. "DESCRIPTION 1"="WFP is a system that prevents "bad" apps from changing system files."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to Chris [mailto:cgmt@flashmail.com] for the "only W2K" bug fix"
  18.  
  19. sV1="HKLM\Software\Microsoft\Windows\CurrentVersion\SystemFileProtection\ShowPopups"
  20. sV2="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCDisable" 'DW 
  21. sV3="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCShowProgress" 'DW 
  22.  
  23.  
  24.  
  25. Sub Plugin_Initialize 
  26.     i=RegReadValue(sV1)
  27.     if i=1 then setuielement 1,true
  28.  
  29.     i=RegReadValue(sV2)
  30.     if i=0 then setuielement 2,true
  31.  
  32.     i=RegReadValue(sV3)
  33.     if i=1 then setuielement 3,true
  34. End Sub
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  if GetUIElement(1)=true then
  41.     v=1
  42.  else
  43.     v=0
  44.  end if
  45.  Call RegWriteValue(sV1,v,2)
  46.  
  47.  if GetUIElement(2)=true then
  48.     v=0
  49.  else
  50.     v=4
  51.  end if
  52.  Call RegWriteValue(sV2,v,2)
  53.  
  54.  if GetUIElement(3)=true then
  55.     v=1
  56.  else
  57.     v=0
  58.  end if
  59.  Call RegWriteValue(sV3,v,2)
  60.  
  61.  
  62.  Call Restart
  63. End Sub
  64.  
  65. Sub Plugin_Terminate 
  66. End Sub
  67.